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ABSTRACT 


This thesis studies the impact that imperfect preventive maintenance has on 
the availability of aircraft and, as a result, the decrease in effectiveness. We further 
consider the practicality of using an imperfect preventive maintenance model for 
determining preventive maintenance schedules. Simulation was used to recreate the 
operational environment in order to study the effects that levels of imperfect 


preventive maintenance have on the aircraft effectiveness during execution of an 


actual fleet tactic. 


Accession For 


NTIS GRA&I 
DTIC Trs 

Unannounced 
Justificatio 


jo fs 





By 
Distribution/ 
Availability Codes 
Avail and/é% 
Dist Special 


el 


il 











4 


THESIS DISCLAIMER 


The reader is cautioned that computer programs developed in this research 
may nct have been exercised for all cases of interest. While every effort has been 
made, within the time available, to ensure that the programs are free of 
computational and logic errors, they cannot be considered validated. Any application 


of these programs without additional verification is at the risk of the user. 
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I, INTRODUCTION 

This thesis will study the impact that imperfect preventive maintenance has on 
the availability of carrier based aircraft, the potential of using an imperfe-t 
preventive maintenance model for determining an improved preventive maintenance 
policy, and the strength of simulating the operating environment when determining 
scheduled prev entive maintenance policy. The aircraft used in this thesis is the E-2C 
airborne radar surveillance platform. 

The E-2C is the primary platform for providing advanced, long range early 
warning radar coverage for a carrier battle group (CVBG). Its ability to provide this 
support increases the readiness state of the CVBG and the reaction time to a hostile 
or unknown surface or airborne threat. To provide this support the aircraft must be 
maintained in a mission capable state. This is accomplished in two ways. One, by 
increasing the reliability of the systems which comprise the E-2C aircraft. Or, by 
maintaining the present systems thereby increasing the availability of the aircraft and 
subsequently expanding the amount of radar coverage provided over time. 

The E-2C aircraft, as a functioning unit, exists in one of three states; fully 
mission capable (FMC), partially mission capable (PMC), or non-mission capable 
(NMC). The aircraft is made up of several surveillance, communication and flight 
systems, all or part of which are necessary to perform the assigned mission. If all 


required systems are operating normally the aircraft is FMC. If one or more systems 














fail or malfunction yet the crew is capable of compieting the mission in this degraded 
state the aircraft is said to PMC. If one or more systems fail or malfunction and 
crews’ ability to perform the missivr is impacted to such a degree that they can no 
longer continue and must abort the flight and return to base, the aircraft is then 
declared to be NMC. The systems and -vuat status an aircraft in the simulation will 


assume is defined in Table 1. 
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Since all systems of the E-2C are subject to failure and repair consequently they all 
must undergo maintenance. There are two types of maintenance that the systems are 
subject to during their operational lifetime, unscheduled and scheduled. 
Unscheduled maintenance, or repair, is performed when a system has failed placing 
the aircraft in an NMC or PMC status. Maintenance action is then undertaken to 
return the aircraft to a fully mission capable status. Scheduled maintenance, or 
preventive maintenance, is performed at specified intervals of time for particular 
systems. In the case of the E-2C, this will occur after T hours of engine run ‘ime. 
At the present time, 200 hours is the designated interval, 7. The aircraft then enters 
what is called a "phased" maintenance period during which selected components 
and/or systems are inspected, serviced, cr overhauled. By performing this preventive 
maintenance the system is kept in a “like new" condition and prevents failures. The 
interval between phased maintenance actions is determined by the failure rate of the 
system and the reliability standards. The time allotted for the performance of this 
preventive maintenance task may also be predetermined by taking into account the 
complexity of the system, the difficulty of inspecting, servicing, or overhauling the 
system and the average skill level of the maintenance technician. (Ref. l:pp 165-167] 

Perfect preventive maintenance is accomplished when the aircraft enters a 
preventive maintenance period and all prefailure conditions are discovered and 
corrected. Imperfect preventive maintenance occurs when an aircraft enters the 
preventive maintenance period and, due to one or more of the causes listed below, 


prefailure conditions are not discovered and the system maintains the same prefailure 











state as before preventive maintenance. There are several reasons why preventive 
maintenance might be performed imperfectly: 
1. Poor maintenance techniques are used by the maintenance technician 
performing the preventive maintenance. 
2 Lack of training or skill on the part of the technician. 


3. External conditions are less than ideal for the performance of the preventive 
maintenance (ey., inclement weather, poor lighting, etc.). 


4. Failed systems are repaired with faulty components. 
5. Additional damage is done during the accomplishment of preventive 
maintenance. [Ref. l:pp. 165-167] 
Thus, assuming that preventive maintenance is, to some degree, imperfect, how 
strong an effect will this have on the availability and effectiveness of the aircraft and 


what would be a better interval between preventive maintenance periods? 

















Il, METHODOLOGY 


A. FLIGHT OPERATIONS 

In order to fully appreciate the impact that imperfect preventive maintenance 
would have on the aircraft it was necessary to place the E-2C in an operationally 
stressful environment. Carrier operations conducted in support of a sustained long 
range anti-aircraft warfare (LRAAW) scenario was proposed to provide those 
conditions. The scenario chosen is the current long range anti-aircraft warfare tactic 
and calls for continuous radar coverage at an extended distance from the aircraft 
carrier. For maximum coverage a single station had to be maintained with on 
station relief, as one E-2C reached the end of its cycle time and departed, another 
E-2C entered the station. The time spent on station plus the time spent in transit 
to and from the ship to the station required the E-2C to be airborne for a total of 
four and a half hours for this mission. The maximum airborne time of the E-2C is 
five and a half hours since it is not capable of refueling while airborne. The on 
Station relief requirement coupled with the inability to refuel dictate that a minimum 
of two E-2C’s be in FMC or PMC status at all times. This will allow for a third E- 
2C to undergo preventive and/or unscheduled maintenance. E-2C squadrons have 
four aircraft attached but the fourth E-2C is usually rotated to the hangar deck and 
undergoes an extensive (four to six weeks) corrosion inspection and restoration due 


to the corrosive effects of the at sea environment. 








B. IMPERFECT PREVENTIVE MAINTENANCE MODEL 


1, Description 
The model used to describe the state of each aircraft in the simulation is 


represented in Figure 1 below: 


p 


0 - repaired or new state p- probability that preventive maintenance is 
imperfect 


1 - operational state 


1-p - probability that preventive maintenance is 
perfect 


2 - failed state 
 - repair rate of system ji 
F(t) - failure distribution of system | 
4 - transition when system returns to service 





Figure 1. Imperfect PM Model 


The model represents the three states that a system of the E-2C will transit 
during its operation. State 0, the initial state, represents the system in a new 
condition or after it has undergone repair or perfect preventive maintenance. It 
remains in this state until the system is placed back in operation. State 1 is the 


normal operating state, here system i fails at a rate determined by its distribution F(t) 





or is preventively maintained at time 7 and returns to state 0. If it fails prior to 
performance of preventive maintenance it enters state 2, otherwise it undergoes 
preventive maintenance and either remains in state 1 with probability p or returns 
to state 0 with probability 7-p. State 2 is the failure state. In this state the system 
has failed and is subject only to repair and is returned to state 0. This simple model 
was embedded in a system simulation which reflected the dynamics of the LRAAW 
tactic, preventive maintenance, and contingencies upon return of an NMC or PMC 


aircraft. 


2. Model Assumptions 
The following assumptions pertain to the imperfect preventive maintenance 
model used in the simulation. [Ref. 2:p 331] 
1. The system undergoes repair at failure or is maintained preventively at 
intervals of length 7, whichever occurs first. 
2. After repair the system is as good as new. 
3. The unit after preventive maintenance has the same time of failure as it had 
before preventive maintenance with probability p (0 < p (1), and is as good 
as new with probability J-p. 
C. THE SIMULATION 
As was stated above in Section A, simulation was used to gather the necessary 
data for analysis. The LRAAW stationing of the E-2C would provide the basis for 
determining if flight operations would have an impact on the preventive maintenance 


policy and, combined with the probability of imperfect preventive maintenance, p, 





ascertain an improved method of preventive maintenance scheduling. A primary 
motivation for simulating flight operations and studying its impact on preventive 
maintenance is due to the goal of maintaining 100 percent radar coverage. During 
carrier operations an aircraft might suffer failures which place the aircraft ina PMC 
status rather than a NMC status but it could continue its mission. In addition, 
preventive maintenance may be delayed until a more advantageous time, ie, until 
more than one aircraft is in a FMC or PMC status, and then be taken "off line" and 
enter phased maintenance. 

The simulation puts the aircraft through the maintenance and flight cycles 
repeatively in order that an aircraft may enter the preventive maintenance period 
several times. The phases of the operating and maintenance cycles are represented 


by five subroutines in the simulation (see Appendix G). 


I, Pretaunch 

During the pre-launch portion of the flight an available aircraft is readied 
for launch. This entails a walk-around inspection of t'.e aircraft by the flight crew, 
engine startup and system performance checks. The purpose of the inspection and 
performance checks is to identify failures which would preclude performing the 
mission. If failures are found, the launch is aborted and an alert launch must be 
scheduled to fill the station with little lapse in radar coverage. An alert aircraft is 
the first aircraft which becomes available for launch. This will include aircraft which 
land in an FMC or PMC status and aircraft coming out of a repair or preventive 


maintenance. 








2. Launch 

The launch portion encompasses the portion of the flight profile from 
launch until the end of on station time when che aircraft departs the station. A 
failure during the launch segment has a more degrading effect on radar coverage 
than during the warmup portion. During the transit to the station the aircraft 
presently on station is preparing to depart leaving the station empty for its relief. If 
the relieving aircraft fails, a lapse in coverage exists until a third aircraft is launched. 
If this third aircraft is NMC and requires repair or is undergoing preventive 
maintenance then the returning aircraft must be "hot spun" back to station. During 
a “hot spin", the aircrafts engines are left running, it is refueled and a fresh crew 
replaces the crew onboard. The elapsed time for this evolution, from leaving station 
until launch and return to station, takes from three and a half to four and a half 


hours during which there is no radar coverage. 


3. RTB 

RTB, or Return To Base, is the final airborne portion of the flight profile. 
During this segment of the flight the aircraft has left the station and is handing over 
the coverage duties to its relief. While still able to provide a radar picture to the 
CVBG until it lands, it provides Jess long range coverage as it closes the carrier to 
land. A failure rendering the departing aircraft NMC during the RTB segment does 
not affect the current radar coverage to as great a degree as a failure during the 
launch segment since a relieving aircraft is transiting to station. However, if the 


relieving aircraft fails during the warmup portion or while in transit to station in the 
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launch portion, a critical gap in coverage will occur until a third aircraft is made 


available or either of the failed aircraft are repaired. 


4. Recovery 
This portion considers landing and maintenance of the airuaft. A 
recovering aircraft is either FMC, PMC or NMC. If NMC it undergoes repair. If 
the aircraft returns in an FMC or PMC status one of three actions will occur: 
1. If the station is empty (no relieving aircraft in transit) then the returning 
aircraft is hot spun and launched back to station. 


2. If an aircraft is not available as a scheduled relief for the aircraft in transit to 
station then the returning aircraft undergoes turnaround maintenance. 


3. If all relief requirements are met then the returning aircraft undergoes repair 
if PMC and/or phase maintenance if T hours of engine run time have lapsed 
since last preventive maintenance cycle. It is during this phase maintenance 
period that the imperfect preventive maintenance model described in Section 
B is used. 


During turnaround maintenance the aircraft is refueled and the aircrafts’ systems are 
inspected for any visible damage or failure. 
5. RTS 
RTS, or Return To Service, is the final portion in the maintenance cycle. 
Aircraft leaving preventive maintenance and/or repair must undergo turnaround 


maintenance after which they are made available for immediate (alert) launch or else 


await a scheduled launch time as a relief. 
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D. MAINTENANCE DATA 

The current preventive maintenance schedule calls for the E-2C to enter phased 
maintenance every 200 hours of engine run time. At this time all systems subject to 
preventive maintenance undergo either phase A or phase B preventive maintenance. 
The two phased maintenance cycles, A and B, are independent preventive 
maintenance periods. Both are accomplished after 200 hours of accumulated engine 
time and it requires 6.5 hours and 9.5 hours, respectively, to accomplish the 
preventive maintenance. Therefore, the preventive maintenance cycles are staggered 
so that they do not overlap and interfere with the accomplishment of the other phase. 
Table 1 lists the systems inspected and serviced during phase A and B preventive 
maintenance, respectively . 

In order to make the simulation as realistic as possible, it was decided to use 
actual failure and repair times as reported by E-2C squadrons operating off carriers 
during a deployment period. The data was provided by records maintained at the 
Naval Air Development Center, Warminster, Pennsylvania. From the collected data, 
five E-2C squadrons where selected. For each squadron a cruise period was selected 
anc irom this period the Maintenance Action Furms (MAF’s) were inspected for t 1e 
failure and repair times. The MAF documents record the aircraft bureau number, 
repair and maintenance aciivity, the system affected, the type of failure or phase 
maintenance action, total engine run time, when the failure was discovered,i.e., 
during flight, before flight (the simulation also allows for a failure to be discovered 


inflight, after flight, etc.}, what repair action was undertaken and the time that the 


12 


aircraft spent in maintenance. From the five E-2C squadrons chosen 27,344 
maintenance level one (squadron level maintenance) MAF’s were investigated which 
represented 9,028 total flight hours. Of these 27,344 MAF’s, 16,043 were submitted 
for performance of unscheduled maintenance and had a "when discovered" code 
indicating the failure was found during either the warmup, launch, or RTB portion 
of the flight. From analyses of these maintenance action forms a time to failure and 
time of repair were derived for each system. Limitations on the data provided 
constrained failure statistics to a system as a unit as listed in Table 1 and not as 
individual components which comprise the system. Due to this restriction 
distributions were not available. Therefore is was decided to approximate the failure 
distributions to fit the system. For those systems which where not subjected to 
preventive maintenance (electrical and avionic systems) an exponential distribution 
was used and the failure rate computed from the data was input to the random 
nu: ver generator LLRANDOM II [Ref. 3] for a time to failure. For those systems 
which underwent preventive maintenance (flight control surfaces, engines, etc.) a 
Gamma distribution was used with the computed failure rate and a shape parameter 
to produce a time to failure with increasing failure rate (IFR). The author felt that 


his fleet experience supported these choices. 
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Iii. ANALYSIS 

The simulation reached steady state at 60 hours and then was run for an 
additional time of 6000 hours for each preventive maintenance interval. Selected 
phased maintenance intervals varied from 25 to 500 hours. To assess the overall 
effects of the imperfect preventive maintenance program the amount of radar 
coverage provided during the 6000 hours was divided into 1000 periods of six hours 
each. The amount of coverage provided during this period was then calculated as 
a percentage and then averaged over the maximum time period to find the mean 
coverage. These values were computed for several levels of p (the probability of 
imperfect preventive maintenance), 0.00, 0.10, 0.25, 0.50, 0.75, 0.90 and 1.00. This 
would cover maintenance accomplishment from perfect (p = 0.00) to imperfect (p 


= 1,00). The results of each run are reported in Table 2. 


14 





TABLE 2, COVERAGE PRECENTAGE 


Interval Between Preventive Maintenance 


Checks (Hrs) 





0.25 
£7537 .1§52 7650 7524 

0.50 
Pp 
% .7660 £7629 7616 £7629 = 
0.75 

’ wn on oe 
1.00 
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Since periods of coverage were not independent, batch means of the coverage 
were computed for each run and the variance computed from these means. 
Coverage provided was then plotted against all intervals between preventive 
maintenance periods and p values and is presented in Graph 1. For each preventive 
maintenance interval individual values of coverage for 100 time periods were plotted 
to study the variance in coverage and length of periods of little or no coverage. For 
these graphs, the values of p = 0.10, 0.50 and 0.90 were plotted against p = 0.00 to 


better visualize the coverage picture. 
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Graph 1. T .vs. Percentage Coverage 
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Analysis was first concentrated on the impact that imperfect preventive 
maintenance would have on the mean radar coverage. From Table 2 and Graph 1 
it may be seen that for short preventive maintenance cycles, 25, 50 and 100 hours, 
the coverage decreases as p increases until the probability of imperfect preventive 
maintenance reaches 0.25, After this value of p is reached coverage does not differ 
appreciably and greater values have no noticeable effect. As the interval between 
preventive maintenance increases to 200, 300 and 500 hours, it may be seen that p 
has no appreciable affect at any value. Next, investigation of Graphs 2 thru 37 in 
Appendices A thru F was conducted to evaluate the variance in coverage provided 
from time period to time period. 

At an interval of 25 hours between preventive maintenance actions, Graph 2 
of Appendix A shows little variance in coverage at p = 0.00. Coverage is maintained 
at a consistent level and intermittently drops below 80 percent coverage during any 
one time period. At values of p larger than 0.00, Graphs 3, 4, 5, 6 and 7 there is a 
greater variability in levels of coverage obtained in a time period and as p increases 
above 0.50 gaps in coverage becomie apparent as aircraft fail and replacements are 
not available. 

At a 50 hour interval between preventive maintenance actions,as seen in 
Appendix B, the effect of a less than optimum preventive maintenance interval 
becomes apparent. At p = 0.00 (perfect preventive maintenance) there are time 
periods of less than 50 percent coverage at approximately evenly spaced intervals. 


At less than perfect preventive maintenance, p = 0.10 and greater, this same effect 
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is observed until p exceeds 0.50. At this value and greater the failure rate overcomes 
any positive effects of preventive maintenance and coverage fluctuates drastically 
from periods of high coverage to periods of little or no coverage. 

At a 100 hour interval (Appendix C) it is again apparent that there is an effect 
induced by the amount of time between preventive maintenance actions. It is also 
apparent, even at p = 0.00 and 0.19, that there is a greater variability of coverage 
provided from period to period and fewer periods of 100 percent coverage and 
increased number of periods with less than 80 percent coverage. As p increases to 
0.25 and beyond the coverage becomes more erratic and vacillates between periods 
of low (less than 60 percent) coverage to periods of moderate coverage (70 to 80 
percent). 

At intervals of 200 hours or greater (Appendices D, E, and 1) between 
preventive maintenance actions consistent high cz: moderate coverage is no longer 
attainable and though coverage in some periods reaches 100 percent this level is not 
continued and drops during subsequent periods to little or no coverage. At intervals 
of 300 and 500 hours it is seen that there is virtually no difference in coverage over 
all values of p. 

Periods of highly variable or moderate (70 percent or less) coverage are 
unsatisfactory when conducting long range surveillance operations. With the E-2C 
platform providing the primary means of detecting, tracking and reporting of 
unknown air contacts these gaps in coverage that resulted from the simulation "blind" 


the CVBG commander and allow for undetected aircraft to close the formation. 
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IV. CONCLUSIONS 

This thesis studies the impact that imperfect preventive maintenance has on the 
availability of aircraft and as a result the decrease in effectiveness. It further looks 
at the feasibility of using an imperfect preventive maintenance model for determining 
an improved preventive maintenance schedule and the use of simulation as a driver 
for the model. For those systems that are subject to preventive maintenance, the 
model assumes that maintenance is performed imperfectly with some probability p 
and perfectly with probability 7-p. Various levels of p were studied at several 
intervals T between successive preventive maintenance actions. 

The following conclusions are drawn from the results of the study: 

1. There is a level of p such that above this value preventive maintenance is 
ineffective and the failure rate of the system overwhelms any advantage of 
preventive maintenance. 

2. As used in the model, there is a time interval T, the time betwee.: preventive 
maintenance checks, above which preventive maintenance is not 
advantageous. Availability of the aircraft and radar coverage does not change 
for anv value of p. 

3. The use of simulation for estimating the impact of imperfect preventive 
maintenance on aircraft systems in an operating environment is practical and 


should be investigated for use in determining optimal preventive maintenance 
schedules. 
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V. RECOMMENDATIONS 
As new aircraft enter the fleet to replace the present systems, these aircraft will 
have increased capabilities and longer lifetimes. Along with these better capabilities 
will be more complex systems that will entail greater and possibly different 
maintenance requirements. As the system changes, the maintenance technicians’ 


knowledge mu:zt grow to the level of the system. Therefore the following 


recommendations are made: 


1, Based upon the output of the simulation and the possible causes of imperfect 
preventive maintenance listed in Chapter I, a model of imperfect preventive 
maintenance should be investigated for use in determining optimal preventive 
maintenance schedules for present and future carrier based aircraft. 


2. That the training of the maintenance technician concentrate as much on 
proper preventive maintenance techniques as it does on repair. That such 
training include what a prefailure condition looks like and other indicators 
necessitating repair or replacement of the system prior to failure. 


3. That the intensity of carrier operations and environmental conditions under 


which preventive maintenance is performed be considered as factors in 
models used to determine optimal preventive maintenance schedules. 
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APPENDIX G. AEWSIM 
A. MAIN PROGRAM 


Cts esse SESSSSSTASSERESKRSSSSSSASKRSSSTHSSAASKLELASEKSSESKATKSLSSSSESSLAESEES 


C 

Cc 

C AIRBORNE EARLY WARNING PLATFORM STATIONING SIMULATION 
C BY 

C LCDR MICHAEL J. BOND 

C 


C THIS PROGRAM SIMULATES THE STATIONING AND RECOVERY OF 

AEW PLATFORMS IN A DEFENSIVE AAW POSTURE AROUND THE 
CARRIER BATTLE GROUP. 

C IT FURTHER SIMULATES THE REPAIR AND MAINTENANCE 
PERFORMED ON THE PLATFORM DURING THE TURNAROUND 
PHASE AND PERIODIC MAINTENANCE 
SCHEDULE. ASSUMPTIONS MADE IN THE MODELING OF THE 
MAINTENANCE 
PORTION ARE: 

A) REPAIR IS PERFECT AND RETURNS THE SYSTEM TO A GOOD AS 
NEW STATE. 

B) PREVENTIVE MAINTENANCE IS IMPERFECT WITH PROBABILITY 
P AND PERFECT WITH PROBABILITY 1-P. IF THE PM IS IMPER- 
FECT THEN IT MAINTAINS ITS ORIGINAL FAILURE TIME. IF IT 
IS PERFECT THEN THE SYSTEM IS RETURNED TO AS GOOD AS 
NEW STATE. 

C) THE PLATFORM UNDERGOES PREVENTIVE MAINTENANCE 
ACCORDING TO A PLANNED PREVENTIVE MAINTENANCE CYCLE. 


PARAM(1) = A/C NUMBER 
(2) = ENGINE START TIME 
(3) = STATION ASSIGNED 
(4) = STATE (FMC, PMC, NMC) 
(5) = TOTAL TIME ON ENGINE 
(6) = TIME TO FAILURE 
(.) _ TD W tt 


STANUM _ Station number a/c is assigned to 
ABORT Aircraft fails on deck or on station 
QUEUE Aircraft in FMC or PMC status for assignment 


AQAAANAANAAAN 
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EMPTY Flags station as empty, no replacement 
FLAG Flags program to fill empty station 

MAXAC Maximum aircraft on flight deck 

HANGAR _ Storage space for PARAM() 

MINFAL Minimum failure time 
FALTIM MTIF for system i 

RFAIL Random time to fail for system i 

MAXPRM Maximum number of parameters in PARAM() 
ENDURE _ Mission flight time 

TTS Time to station 

TOS Time on station 

NOW Current program time 

STATUS Aircraft status (up or down, for stats) 
COVER Station is filled (for stats) 

DTIME Maximum down time 

FLYTIM _ Total time on engine from startup to recovery 
HSTIM Hotspin time 

TATIM Turnaround time 

REPTIM MTTR for system i 

RTIME Random assigned time for repair of system 
HTPM(1) Hours till next pm phase A for aircraft # 
HTPM(2) " tt B +t tt 
INWORK(#) Denote~ whether system i undergoes phase A/B pm 
PERFPM _ Random probability of perfect pm 

IMPERF Probability of imperfect pm 

MAXTIM Maximum running time of program 


Cee er eee eee SRETSEECTSEKSKKREKKSKEECTSEKSKEKCTKSESSEKS CE TKEEKSTTKEKSEKEKEKS 


C THIS MODULE CONTAINS: 


Cc -MAIN PROGRAM 

C -DOIT 

Cc 

CSRS eee EE SSeS ASAE SSL TEAST SAAS SERA SE SSS SET SS RST SSeS eS SSeS TS eee See 
PROGRAM AEWSIM 


CPST ESSE ES SS SSS ESAS SSSR ESE S SRS SRE SAS SECS S SESSA SES VE SS SSSR ERS IS SLES ESS 


C MAIN PROGRAM 
CESK PSSSSES ESSEC ERS SSS SSeS SLSR SEL SRS SRS ESTAS SET ESR S TASS Se SSS es 
CALL READIT 
CALL CONFRM 
N=1 
10 CONTINUE 
IF(N EQ. 1)IMPERF = 0.0 
IF(N .EQ. 2)IMPERF = .10 
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IF(N .EQ. 3)IMPERF = .25 
IF(N .EQ. 4)IMPERF = .50 
IF(N .EQ. 5)IMPERF = .75 
IF(N .EQ. 6)IMPERF = .90 
IF(N .EQ. 7)IMPERF = 1.0 
WRITE(12,*))RUN NUMBER ’,N 
CALL INITZE 

CALL DOIT 

N=N#1 

IF(N .LE. 7)GOTO 10 
STOP 

END 


COTES SSS SSC RE ESSE SESS SEO RSS ESS SSAC ELS SSAE SSS SSS LSS ESAS SACS SS SSE SS 


SUBROUTINE DOIT [Ref 6] 
CCPPSSEFSSSES ESET SE SSS SS SSS CSSSS ASCE CELS SSS SSERESES SSS SSS SSS ELST SSS SS Ss 
THIS SUBROUTINE 
- HANDLES THE PASSAGE OF TIME AND THE EXECUTION OF 
EVENTS 
- STOPS AS SOON AS MAXTIM TIME UNITS HAVE TRANSPIRED 


EVENT 1 IS THE PRELAUNCH/WARMUP PHASE OF THE LAUNCH 
CYCLE 

EVENT 2 IS THE LAUNCH OF THE AIRCRAFT TO STATION 

EVENT 3 IS RETURN TO BASE COMMAND FOR EACH AIRCRAFT 

EVENT 4 IS THE RECOVERY OF THE AIRBORNE AIRCRAFT 

EVENT 5 IS THE RETURN TO SERVICE OF THE AIRCRAFT AFTER 
MAINT. 

EVENT 6 IS A STATISTICAL EVENT 


CAFES ERSEERER TEESE ESSERE STEERS TE KEKE S RRA RSEAAEEER EEE E ERE REE S&F 


QANAQAQ ANN ANY 


2) 


1000 CONTINUE 
C 
Cees PULL AN EVENT OFF THE CALANDAR 
C 

CALL POP(TIMEVT,NUMBER, PARAM) 
C 
‘ener STOPPING CONDITIONS CHECKED 

IF((NUMBER .NE. 0) AND. (NOW .LE. REAL(MAXTIM)))THEN 

IF(TIMEVT .LT. NOW)THEN 
WRITE(*,*)" TIME IS GOING BACKWARD, TIME=’,NOW 


CALL DMPCAL 
STOP 
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RAQIAN 


OO 


ENDIF 
IF(NUMBER .NE. 7)THEN 
NOW = TIMEVT 
ENDIF 
GOTO (10,20,30,40,50,60,70), NUMBER 


CONTINUE 
CALL WARMUP(PARAM) 
GOTO 99 
ean LAUNCH EVENT 
CONTINUE 
CALL LAUNCH(PARAM) 
GOTO 99 
ee RETURN TO BASE (RTB) EVENT 
CONTINUE 
CALL RTB(PARAM) 
GOTO 99 
aes RECOVERY EVENT 
CONTINUE 
CALL RECOV(PARAM) 
GOTO 99 
ene RETURN TO SERVICE (RTS) EVENT 
CONTINUE 
CALL RTS(PARAM) 
GOTO 99 
steers A STATISTICAL ROUTINE 
CONTINUE 
CALL STAT2(PARAM) 
GOTO 99 


wenedieue ANOTHER STATISTICAL ROUTINE 
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70 CONTINUE 
CALL STAT3(PARAM) 
GOTO 99 


C 
99 CONTINUE 
Cc 


GOTO 1000 
ELSE 
C  _WRITE(*,*)SIMULATION COMPLETED AT TIME’,NOW 
C CALL DMPCAL 
IF(NOW .LT. REAL(MAXTIM))THEN 
WRITE(*,*)'SIMULATION ENDED DUE TO EMPTY CALANDAR’ 
ENDIF 
ENDIF 
RETURN 
END 


CCFSRESESL SEATS ERS ESSE STARE SESS TRESS ST ESTE RECESS SE CESS E SCRE LESES SERENE ES 


SUBROUTINE INiTZE 


CET ESE SAS ASE ER ATES EAE AES EASES SEA SS SAA ee SER ee ST eT ee eee 


C THIS SUBROUTINE WILL 


C - INITIALIZE ALL STATE VALUES 
C - SCHEDULE INITIAL SORTIES FOR LAUNCH 
C - INTIALIZE THE EVENT CALANDER 
CESSES AAE ESSE SERRA A SSAA ESSERE SESS AKA LSA ASTRAL SAAS RAE SSAA SAS SSR SES SS 
C 
EPS = 1.0E-6 
L = 1.0 


DO 5I = 1,MAXAC 
STATUS(I) = 1.0 
COVER(I) = 0.0 

5 CONTINUE 

QUEUE = MAXAC 
DO 201 = 1,LISTL-1 
TIME(I) = 0.0 
EVINUM(] = 0 
DO 10 J = 1.MAXPRM 
PASSED(LJ) = 0.0 
10 CONTINUE 
NXTEVT(I) = I +1 
20 CONTINUE 
NXTEVT(LISTL) = 0 
FSTEVT = 0 
AVAIL = 1 
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-- + ce 





NOW = 0.0 
DO 1001 = 1,MAXAC 
HANGAR(I1) = REAL(I) 
DO 90 J = 2.MAXPRM 
HANGAR(I,J) = EPS 
90 CONTINUE 
100 CONTINUE 
DO 1101 = 1,MAXAC 
EMPTY(I) = .FALSE. 
FLAG(I) = .FALSE. 
110 CONTINUE 
STAGAR = 0.0 
STANUM = STATNS 
DO 1301 = 1,STATNS 
DO 120 J = 1,MAXPRM 
PARAM(J) = EPS 
120 CONTINUE 
PARAM(3) = REAL(STANUM) 
STANUM = STANUM - 1 


CALL SCHDLE(NOW + STAGAR,1,PARAM) 


STAGAR = STAGAR + STAG 
130 CONTINUE 
CALL SCHDLE(6.0,7,PARAM) 
CALL SCHDLE(0.1,6,PARAM) 
C CALL DMPCAL 
RETURN 
END 
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B. 


WARMUP 


CESS SL SS SL SS SSA SSS SESSS SAAS SSE SE SSS SSE AST SR SSS SSL S TSS SSeS eee e eee eee Se 


SUBROUTINE WARMUP(PARAM) 


CSS SESE SESE SSE SASAS ES RES SESS ESSE CESSES ELS SS CASS SESS SE SERS SSS ESE S SE SES ER 


C 
C 
C 


C 
C 


THIS SUBROUTINE WILL 
-FLAG A STATION EMPTY IF NO AIRCRAFT AVAILABLE 
-SAMPLES EACH SYSTEM FOR FAILURE DURING WARMUP 
PERIOD 
-SCHEDULES 
‘-A LAUNCH EVENT 


CPSSESERSESSSESEESESSES SSSR SSS ES SESE STS SLES SLSR SS ESE S SETS SSS EC SRS SEES SS 


C 


tn ©} 


10 


20 


STANUM = INT(PARAM(3)) 
ABORT = FALSE, 
IF(QUEUE .EQ. 0)THEN 
EMPTY(STANUM) = .TRUE. 
FLAG(STANUM) = .TRUE. 
WRITE(11,5)STANUM,NOW 
FORMAT(1X,’STATION °,12, IS EMPTY AT TIME ’,F7.1) 
RETURN 
ELSE 
DO 201 = 1,MAXAC 
IF(HANGAR(I,1) .GE. 0.5) THEN 
DO 10 J = 1.MAXPRM 
PARAM(J) = HANGAR(LJ) 
HANGAR(I,)) = EPS 
CONTINUE 
QUEUE = QUEUE - 1 
PARAM(2) = NOW 
PARAM(3) = REAL(STANUM) 
GOTO 40 
ENDIF 
CONTINUE 
ENDIF 


40 CONTINUE 


MINFAL = 100000.0 
DO 50 K = 6,MAXPRM 


IF(PARAM(K) .EQ. EPS)THEN 
CALL RANNUM(S,SEED(K-5),FALTIM(K-5),4.0,0,RFAIL) 
PARAM(K) = RFAIL 

ENDIF 


50 CONTINUE 
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DO 60 K = 6MAXPRM 
IF(PARAM(K) .LT. 0.5)THEN 
ABORT = .TRUE. 
MINFAL = MIN(MINFAL,PARAM(K)) 
IF(MINFAL .LT. 0.1)MINFAL = 0.1 
IF(K .GE. NUM)THEN 
PARAM(4) = 1.0 
ELSE 
PARAM(4) = 2.0 
ENDIF 
ENDIF 
60 CONTINUE 
IF(ABORT)THEN 
C  _ WRITE(11,70)PARAM(1),NOW+ MINFAL 
70  FORMAT(1X,F4.1,FAILED ON DECK AT TIME’,F7.1) 
CALL SCHDLE(NOW+ MINFAL,4,PARAM) 
CALL SCHDLE(NOW+ MINFAL,1,PARAM) 
ELSE 
CALL SCHDLE(NOW + 0.5,2,PARAM) 
ENDIF 
STATUS(INT(PARAM(1))) = 1.0 
COVER(INT(PARAM(1))) = 0.0 
RETURN 
END 
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C. LAUNCH 


CEFECSESSPRSRS ESS SEES SSS SSE SECS ESET SESS ESSE SSS LASSE S SEE SCE SESS SS 


SUBROUTINE LAUNCH(PARAM) 
CtteSt eee See eee s SESS SSS SSeS See See Cees eee SSeS eee eT SSeS eT 
C THIS SUBROUTINE WILL 
C -LAUNCH AN AIRCRAFT TO STATION 
C -SAMPLES EACH SYSTEM FOR AN INFLIGHT FAILURE 
C -SCHEDULES 
C :-A RELIEF AIRCRAFT 
C -A RETURN TO BASE TIME BASED UPON FAILURE STATUS 
CUSESSSSC SS SSE S ESET ST Se ESTERS ESS S TST SS RLS eee ee eee eee eee eee 
ABORT = .FALSE. 
DO 10 K = 6MAXPRM 
PARAM(K) = PARAM(K) - 0.5 
10 CONTINUE 
COVER(INT(PARAM(1))) = 1.0 
MINEFAL = 100000.0 
DO 20 K = 6,MAXPRM 
IF(PARAM(K) .LT, ENDURE)THEN 
IF(PARAM(K) .GE. NUM)THEN 
PARAM(4) = 1.0 
ELSE 
ABORT = .TRUE. 
MINFAL = MIN(MINFAL,PARAM(K)) 
PARAM(4) = 2.0 
ENDIF 
ENDIF 
20 CONTINUE 
IF((ABORT) .AND. (MINFAL .LT. TTS+TOS))THEN 
CALL SCHDLE(NOW + MINFAL3,PARAM) 
ELSE 
CALL SCHDLE(NOW+TTS+TOS,3,PARAM) 
ENDIF 
IF((ABORT) .AND. (MINFAL .LT. TTS))THEN 
CALL SCHDLE(NOW,1,PARAM) 
ELSE 
CALL SCHDLE(NOW+TTS+TOS-0.5,1,PARAM) 
ENDIF 
IF(MINFAL .LT. ENDURE)THEN 
C _ WRITE(11,50)PARAM(1), MINFAL+NOW 
50 FORMAT(1X,F4.1, WILL FAIL AT TIME ’,F7.1) 
ENDIF 
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STATUS(INT(PARAM(1))) = 1.0 
COVER(INT(PARAM(1))) = 1.0 
RETURN 

END 
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D. RTB 


CPt e SESS ee See Se TTS SECIS ESSER SA TASES VES ES TESTS SS SCRE SSSR TS Sete ee 


SUBROUTINE RTB(PARAM) 


CUFSTT SESS SLES SE SESSA SL SSS SSeS TSS SS Te SS SETS SASS SSS SSS SSeS Se Tee ee 


C THIS SUBROUTINE WILL 


C -SCHEDULE A RECOVERY TIME ON THE CALENDAR BASED 
UPON 

C A) IF IT IS STILL IN TRANSIT TO STATION OR 

C B) ON STATION 


COVES S SRS ES eS SS ESTES RA ESTES SSeS SESE SESSA SS ES RSS S A TAS SST ESS SST SRS 


IF((NOW - PARAM(2)+0.5) .LT. TTS)THEN 
CALL SCHDLE(NOW + (NOW-(PARAM(2)+0.5)),4,PARAM) 
ELSE 
CALL SCHDLE((NOW+TTS),4,PARAM) 
ENDIF 
IF(PARAM(4) .GT. 1.5)STATUS(INT(PARAM(1))) = 9.0 
IF(PARAM(4) .GT. 1.5)COVER(INT(PARAM(1))) = 0.0 
RETURN 
END 


68 


E. RECOVERY 


COEFES ESS ASST OS SESE SSS TESS TASSELS SSA LT eee Tee ese eee 


SUBROUTINE RECOV(PARAM) 
Cees ete Sete eee eee eee eee eee te ee ee ee eee 
THIS SUBROUTINE WILL 
-HOT SPIN AN AIRCRAFT TO AN EMPTY STATION IF NO OTHER 
AIRCRAFT 
ARE AVAILABLE AND WILL NOT UNDERGO PREVENTIVE 
MAINTENANCE 
-REPAIR RECOVERING AIRCRAFT IF REQUIRED AND PERFORM 
PREVENTIVE 
MAINTENANCE OF SYSTEMS NOT SUBJECT TO REPAIR 


EKCECKKCSKRKCTCESKSTKSTSKSTSKKEKSKEKCESKSEKTAKSESKSSKSEKKACETARKTKEEKKEEKKEKSERE 


QAMIQ 9 QA AM 


DTIME = 0.0 
COVER(INT(PARAM(1))) = 0.0 
IF(PARAM(4) .GT. 1.5)STATUS(INT(PARAM(1))) = 0.0 
FLYTIM(INT(PARAM(1))) = NOW - PARAM(2) 
PARAM(S5) = PARAM(S) + FLYTIM(INT(PARAM(1))) 
DO 51 = 6MAXPRM 
PARAM(I) = PARAM(I) - FLYTIM(INT(PARAM(1))) 
5 CONTINUE 
DO 10 I = 1,STATNS 
IF(EMPTY(I) .AND. (PARAM(4) .LT. 1.5)) THEN 
EMPTY(I) = .FALSE. 
PARAM(3) = REAL(]) 
CALL SCHDLE((NOW+HSTIM),5,PARAM) 


C WRITE(11,6)PARAM(1),I 
6 FORMAT(1X,’HOTSPIN ’,F4.1,” TO STATION ’,12) 
RETURN 
ENDIF 
10 CONTINUE 


IF((QUEUE .LT. 1) .AND. (PARAM(4) .LT. 1.5)) THEN | 
CALL SCHDLE(NOW + TATIM,5,PARAM) | 
RETURN 

ENDIF 

DO 201 = 6MAXPRM 
IF(PARAM(I) .LT. 0.0) THEN 

PARAM(I) = EPS 

PARAM(4) = 0.0 

CALL RANNUM(3,SEED(I-5),REPTIM(I-5),0.0,0,RTIME) 
DTIME = MAX(RTIME,DTIME) 
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ENDIF 
20 CONTINUE 
IF(HTPM(NT(PARAM(1)))/PARAM(S) LT. 1.0)THEN 
DO 30 K = 6,MAXPRM 
IF(INWORK(K-5) .GT. 0.5) THEN 
CALL RANNUM(1,SEED(K-5),0.0,1.0,0,PERFPM) 
IF(PERFPM .GT. IMPERF)PARAM(K) = EPS 
DTIME = DTIME + HTPM(6) 
ENDIF 
30 CONTINUE 
HTPM(INT(PARAM(1))) = HTPM(INT(PARAM(1))) + HTPM(7) 
ENDIF 
CALL SCHDLE((NOW+ DTIME+TATIM),5,PARAM) 


C  WRITE(11,60)PARAM(1),NOW+DTIME+TATIM 


60 FORMAT(1X,F4.1, IS IN FOR MAINTENANCE UNTIL TIME ’,F7.1) 
RETURN 
END 
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seem adil 
~- 


F. RTS 


CESSES SES ESSEC ST ESS CESSES EAS STEER SAS Sees ecer ees erste 


SUBROUTINE RTS(PARAM) 
COTS T ECCS EST SC SESS e SER eae See eee eee e ee eee eee eee ee ee ee me 
C THIS SUBROUTINE WILL 
C  -RETURN AIRCRAFT TO THE QUEUE 
C  -SCHEDULE AN AIRCRAFT FOR IMMEDIATE LAUNCH IF A 
STATION IS 
C EMPTY 
CPECECES RSS ESES ET ESTES SSE E SS ESTES ESSA SR SSAA SS SS SSSR SSeS eS STS ee 
DO 101 = 1,.MAXPRM 
HANGAR(INT(PARAM(1)),1) = PARAM(I) 
10 CONTINUE 
STATUS(INT(PARAM(1))) = 1.0 
QUEUE = QUEUE + 1 
DO 20 J = 1,STATNS 
IF(FLAG(J)) THEN 
PARAM(3) = REAL(J) 
CALL SCHDLE(NOW,1,PARAM) 
FLAG(J) = .FALSE. 
C WRITE(11,15)J,PARAM(1) 
15 FORMAT(1X,STATION °,]2” WAS EMPTY ’,F4.1,’ TO FILL’) 
RETURN 
ENDIF 
20 CONTINUE 
RETURN 
END 
G. READIT 


CCESEESESS SES SESS ES ESE SCS VE SESS SELES SS SESS SSL ESS SSS SESS TRSS ES SES SEES S SSS 


SUBROUTINE READIT 
CPESES SETS SECTS ROLES SES ELSES TESS SSE SESE LESSEE SSSR S SSSR SETTER ES 
C THIS SUBROUTINE 
C -READS PARAMETERS AND VARIABLE FROM THE DATA FILE 
CELESES ESAS SS SST ECS TERETE STS ES SESS ESTATES ETERS ESE SSS ESET Se 
READ(9,*)HSTIM 
READ(9,*)MANTIM 
READ(9,*)TATIM 
READ(9,*)ALTIM 
READ(9,*)ENDURE 
READ(9,*)STAG 
READ(9,")SECTOR 
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READ(9,*)SENSOR 

READ(9,")DETECT 

READ(9,*)SPEED 

READ(9,*)TTS 

READ(9,*)TOS 

READ(9,*)STATNS 

DO 1001 = 1,MAXRV 
EAD(9,*)FALTIM(1),REPTIM(I) 

100 CONTINUE 
DO 101 I = 1,.MAXRV 

FALTIM(I) = (1/FALTIM(1))*4.0 
REPTIM(I) = (1/REPTIM(D) 

101 CONTINUE 

DO 105 I = 1,MAXRV 
READ(9,*)INWORK(I) 

105 CONTINUE 
READ(9,")HTPM(1), HTPM(2), HTPM(3), HTPM(4), HTPM(5) 
&,HTPM(6), HTPM(7) 

107 CONTINUE 
DO 1101 = 1,MAXRV 

READ(9,*)SEED(I) 

110 CONTINUE 
RETURN 
END 


ie 





H. 





CONFIRM 


CPSP Seer cece Seer SESS SELASSIE SS SSCS SSL ELS SSRIS CLES SERRE SESS 


SUBROUTINE CONFRM 


CESSES ESE RSS SSS See SSeS SSS SS SSS TSS eee eee ee Te See Teele ee eee eS SS 


C 
C 


THIS SUBROUTINE 
-READS PARAMETERS AND VARIABLES TO AN OUTPUT DATA 
FILE 


CESSSSES ESSE SES LESS SSS ESSE SAS SSS ASS SSS SS SS ERS SSS ESS TSS e Cee See ee See ese 


ssssveee READ THE DATA INTO THE FILE 
WRITE(10,*)’ ssageeeseesesee® TNPLTT DATA t2eeteeeeeeaes? 
WRiTE(10,*) ’ 


WRITE(10,5)MAXTIM 

FORMAT(1X, SIMULATION RUN TIME (MIN) 17) 
WRITE(10,10)HSTIM 

FORMAT(1X,HOTSPIN TIME (MIN) ’ F4.1) 
WRITE(10,15)MANTIM 

FORMAT(1X,’MAN UP TIME (MIN) ’ F4.1) 
WRITE(10,20)TATIM 

FORMAT(1X, TURNAROUND TIME (MIN) ’ F4.1) 
WRITE(10,25)ALTIM 

FORMAT(1X, ALERT LAUNCH TIME (MIN) ’ F4.1) 
WRITE(10,35)ENDURE 

FORMAT(1XCREW FATIGUE TIME (HRS) ’ F4.1) 
WRITE(10,40)STAG 


FORMAT(1X,’STAGAR INITIAL SORTIES TO STATION (MIN) °,F4.1) 
WRITE(10,45)SECTOR 

FORMAT(1X,'SECTOR OF AEW COVERAGE (DEG) ’ F5.1) 
WRITE(10,50)SENSOR 

FORMAT(1X,SENSOR COVERAGE (NM) F5.1) 
WRITE(10,55)DETECT 


FORMAT(1X, REQUIRED RAID DETECTION RANGE (NM) __°,F5.1) 
WRITE(10,60)SPEED 

FORMAT(1X, PLATFORM SPEED TO STATION (KTS) ’ F5.1) 
WRITE(10,65)TTS 

FORMAT(1X,’TIME TO STATION (HR) ’F5.1) 
WRITE(10,70)TOS 

FORMAT(1X’TIME ON STATION (HR) ’ F5.1) 
WRITE(10,75)STATNS 

FORMAT(1X, NUMBER OF STATIONS 11) 
WRITE(10,*)’ ’ 

WRITE(10,*)’ KSECKRECTKCKEKKECEKCKCSKSSKSSRSKSKEARARSELKEAKKEAES SE? 


WRITE(10,*)’ ’ 
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WRITE(10,*)) MTTF MTTR °’ 
WRITE(10,*)’ ’ 
DO 105 I = 1,MAXRV 
WRITE(10,100)FALTIM(1),REPTIM(I) 
100 FORMAT(1X,F5.2,3X,F5.2) 


105 CONTINUE 
WRITE(10,*)’ ’ 
WRITE(10,*)’ KERAEESSESSTEKTSETCTESSESTETCTSERLSSSEKSARECERESKRREKES ES? 
DO 111 I = 1,MAXRV 

WRITE(10,110)INWORK(I) 

110 FORMAT(1X,F3.1) 

111 CONTINUE 
WRITE(10,*)’ ’ 
WRITE(10,*) STKESTECKCAREKRLTSSTRCRKRKRKCSKSSARAKTCAKAEREKESS HK) 
WRITE(10,*)’ HOURS TO PREVENTIVE MAINTENANCE 
WRITE(10,*)’ ’ 
WRITE(10,*)’ A/CNUMBER TIMETO_ TIME ° 


WRITE(10,*’ 12 3 4 5 PERFORM BETWEEN’ 
WRITE(10,112) HTPM(1), HTPM(2), HTPM(3), HTPM(4), HTPM(5), 
&HTPM(6), HTPM(7) 
112 FORMAT(1X,F5.1,3X,F5.1,3X,F5.1,3X,F5.1,3X,F5.1,3X,F3.1,3X,F5.1) 
WRITE(10,*)’ SERSRARHERSESRSEEE CHES tees sareacases see 
DO 1201 = 1,MAXRV 
WRITE(10,*)SEED(1) 
120 CONTINUE 
RETURN 
END 
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i, SCHEDULE 


CESS OSSSS SCS SR SSS SESS ASSESS TSR SSS SECS STS e eee eee e ee ee ee eee 


SUBROUTINE SCHDLE(EVTTIM,NEWNUM,PARAM) [Ref. 6] 


CESTSSSESESER SS SISA S ESS SSS SSS SASS SSeS eee SLL eee eee ee 


& 
C 
C 
C 
C 
C 
C 
C 
C 


THIS SUBROUTINE SCHEDULES AN EVENT 
-AT THE TIME EVENTTIME 
-WITH THE PROPER EVENT NUMBER EVINUM 
-WITH THE PASSED PARAMETERS PARAM GIVEN 


EVTTIM BE REAL 
NEWNUM MUST BE INTEGER 
PARAM MUNST BE AN ARRAY OF MAXPRM REALS 
SEKSTKSESCSESSSTSESESECKSCSKESSKSESESKKESKSKTEAKASSCETCAKAETCKCLSEKSCTCKCKKCTEKKEEKES 
IF(AVAIL .LE. 0.5) THEN 
WRITE(*,*) *CALANDAR FULL’ 
WRITE(10,*) *CALANDAR FULL’ 
STOP 
ENDIF 
IF(FSTEVT .EQ. 0)THEN 
EVENT = AVAIL 
AVAIL = NXTEVT(AVAIL) 
NXTEVT(EVENT) = 0 
FSTEVT = EVENT 
ELSE 
IF(TIME(FSTEVT) .GT. EVTTIM)THEN 
cas INSERT THE EVENT ON THE TOP OF THE CALANDAR 
EVENT = AVAIL 
AVAIL = NXTEVT(AVAIL) 
NXTEVT(EVENT) = FSTEVT 
FSTEVT = EVENT 
ELSE 
sue THE EVENT IS NOT THE FIRST EVENT IN THE CALANDAR 
LSTEVT = FSTEVT 
CUREVT = NXTEVI(FSTEVT) 
COUNT = 0 
CONTINUE 
IF(CUREVT .EQ. 0)THEN 
oe WE HAVE RUN OUT OF CALANDAR, THE EVENT IS LAST 
EVENT = AVAIL 
AVAIL = NXTEVT(AVAIL) 
NXTEVT(EVENT) = 0 
NXTEVT(LSTEVT) = EVENT 
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ELSE 
IF(TIME(CUREVT) .GT. EVTTIM)THEN 
fea INSERT THE EVENT BETWEEN LSTEVT AND CUREVT 
EVENT = AVAIL 
AVAIL = NXTEVT(AVAIL) 
NXTEVT(EVENT) = CUREVT 
NXTEVI(LSTEVT) = EVENT 
ELSE 


OQ 


CUREVT = NXTEVI(CUREVT) 
COUNT = COUNT + 1 
IF(COUNT .GT. LISTL)THEN 
WRITE(*,*) INFINITE LOOP IN THE EVENT LIST 
STOP 
ENDIF 
GOTO 200 
ENDIF 
ENDIF 
ENDIF 
ENDIF 


es ASSIGN THE OTHER VALUES AT THE ARRAY LOCATION EVENT 


TIME(EVENT) = EVTTIM 
EVTNUM(EVENT) = NEWNUM 
DO 201 I = 1,.MAXPRM 

PASSED(EVENT,I) = PARAM(I) 

201 CONTINUE 
RETURN 
END 


76 


TT LT LT EL EY TE ee ee 


J. POP 


CESSES A SSSA SES SESSLER ESS SLES SESSA L SLOSS SSS Se TT ee eee 


SUBROUTINE POP(EVTTIM,NUMEVT,PARAM) [Ref. 6] 


CTPEPSESES SES SSE SESS SSE SS SSS SS ESS ELSA SSS Se Tee eS eee eT eee 


C THIS SUBROUTINE TAKES THE FIRTS EVENT OFF THE CALANDAR 
AND 
RETURNS THE PERTINENT DATA 


EVTTIM IS THE TIME OF THE EVENT 
NUMEVT IS THE EVENT NUMBER OF THE EVENT 
PARAM IS AN ARRAY OF FIVE REAL PASSED PARAMETERS 


EVTTIM AND NUMEVT ARE RETURNED AS 0 IF THE CALANDER IS 
EMPTY 


RAREKEKKEREKEKHKEERAEKKEARSESKCKRKKRSKEKKTESRETEKSTERSTAKASECTKKTKKKRKRKRAKARELKEX 


AQ ANAANANIN 


IF(FSTEVT .EQ. 0)THEN 
NUMEVT = 0 
EVTTIM = 0.0 
RETURN 

ELSE 
EVENT = FSTEVT 
NUMEVT = EVINUM(EVENT) 
EVTTIM = TIME(EVENT) 
DO 501 I = 1.MAXPRM 

PARAM(I) = PASSED(EVENT,)) 
501 CONTINUE 

FSTEVT = NXTEVT(EVENT) 
NXTEVT(EVENT) = AVAIL 
AVAIL = EVENT 
RETURN 

ENDIF 

END 
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K. DUMP CALENDAR 


CFtSsSSe STE SESS SRSA SES ESE SESS CESSES LSERSES SSL SEC SESE SLES SS SSS TTA S SE SSeS 


SUBROUTINE DMPCAL [Ref. 6] 
CPESSESESECSSS TESTE SESS LASSE SASS PS SS SECS RESETS SE CSESESELS SOR SELEE SSS SE SSS F 
C 
C DUMPS THE CURRENT CALANDAR TO THE OUTPUT FILE UNIT 10 
C 


CESSES SEES SE OSSSELESSAERSS SASS ESSERE SRST SSS SASK SSESSERSESELRSAE ASE R ASE ES 


Cc SIM06250 
WRITE(10, *)’ 
WRITE(10, 405) SIM06270 
WRITE(10, 401) FSTEVT, AVAIL SIM06280 
WRITE(10, 406) SIM06290 
EVENT = FSTEVT SIM06300 
COUNT = 0 SIM06310 

404 CONTINUE SIM06320 


IF (EVENT.NE.0.AND.COUNT.LT.LISTL + 1) THEN 
WRITE(10, 402) EVENT, TIME(EVENT), EVTNUM(EVENT), 
& | NXTEVT(EVENT),(PASSED(EVENT, J),J = 1, 5) 

EVENT = NXTEVT(EVENT) 


COUNT = COUNT + 1 SIM06370 
GOTO 404 SIM06380 
ENDIF SIM06390 
C 5SIM06400 


405 FORMAT(’ OUTPUT FROM THE ROUTINE DMPCAL, THE CALANDAR 

DUMPER’,/) 

401 FORMAT( FIRST EVENT (FSTEVT) — =’, J10,/, SIM06420 
& ’ FIRST AVAILABLE SLOT (AVAIL) = ’, 110, /) SIM06430 

406 FORMAT(’ EVENT TIME NUMBER NEXT EVNT’) 

SIM06440 


402 FORMAT(I4, 4X, F8.3, 4X, 14, 4X, 14, /15X, 5(2X, F8. ») SIM06450 
RETURN SIM06460 
END 
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NE ee ee a Me eee Re Ns NE ee I RSE ee et eee ele gE EL ee ee aS 


L. STATISTICS 2 


CEPSS SESS STS SESS SLES SSL SSS SESS SSSA SER CSS SS PSSST SSeS ees eee eee ses 


SUBROUTINE STAT2(PARAM) 


CESS SSeS see eS e SSS eS e eee See See eS eee eee ee eee eee Seer eee tees eee eee 


C 
CALL SCHDLE(NOW +0.1,6,PARAM) 
IF(NOW .LE. 0.15) THEN 
AEW = 0.0 
DO 101 = 1,MAXAC 
RVAIL(]) = 0.0 
DTIME(I) = 0.0 
UTIME(I) = 0.0 
PDOWN(I) = 0.0 
10 CONTINUE 
ENDIF 
PAEW = 0.0 
DO 201 = i,MAXAC 
IF(STATUS(I) .GT. 0.5)THEN 
UTIME(I) = UTIME(]) + 0.1 
ELSE 
DTIME(I) = DTIME(]) + 0.1 
ENDIF 
RVAIL(I) = UTIME(I)/(UTIME(]) + DTIME(D) 
IF(COVER(I) .GT. 0.5)PAEW = 0.1 
20 CONTINUE 
AEW = AEW + PAEW 
RETURN 
END 
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M. STATISTICS 3 


aa a dh i ka i a a 


SUBROUTINE STAT3(PARAM) 
Cee See eS eee SEAS SSE TES SASS SS SSS TERS SS ESET SOS SSeS See Se eee Tee eet 
C 

IF(K .LE. 999)CALL SCHDLE(NOW+6.0,7,PARAM) 

TAEW = AEW/6.0 

IF((K .GT. 199.5) .AND. (K .LT. 300.0)) THEN 

WRITE(11,20) TAEW 

20 FORMAT(1X,F7.4) 

ENDIF 


TTAEW = TTAEW + TAEW 
AEW = 0.0 

RETURN 

END 
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